From e8a66637c7c1d0a86499e537977e345f3188f4cb Mon Sep 17 00:00:00 2001 From: justbur Date: Tue, 24 May 2016 12:44:50 -0400 Subject: [PATCH] Change name of arg in define-key-recursively Also clarify docstring --- which-key.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/which-key.el b/which-key.el index 2cdf1cb94bb..b47b05825cd 100644 --- a/which-key.el +++ b/which-key.el @@ -832,10 +832,10 @@ addition KEY-SEQUENCE NAME pairs) to apply." (push (cons mode mode-title-alist) which-key-prefix-title-alist)))) (put 'which-key-declare-prefixes-for-mode 'lisp-indent-function 'defun) -(defun which-key-define-key-recursively (map key def &optional recursing) +(defun which-key-define-key-recursively (map key def &optional at-root) "Recursively bind KEY in MAP to DEF on every level of MAP except the first. -RECURSING is for internal use." - (when recursing (define-key map key def)) +If AT-ROOT is non-nil the binding is also placed at the root of MAP." + (when at-root (define-key map key def)) (map-keymap (lambda (_ev df) (when (keymapp df) -- 2.30.2